calculate_euclidean_distance Function

public function calculate_euclidean_distance(distance, vector1, vector2) result(d)

Function to calculate euclidean distance between vectors

Type Bound

euclidean_distance

Arguments

Type IntentOptional Attributes Name
class(euclidean_distance) :: distance

A euclidean_distance object
real(kind=wp), intent(inout), dimension(:,:) :: vector1

A real vector
real(kind=wp), intent(inout), dimension(:,:) :: vector2

A real vector

Return Value real(kind=wp)

A real variable with the distance


Source Code

    function calculate_euclidean_distance(distance,vector1,vector2) result(d)
!========================================================================================
!! Function to calculate euclidean distance between vectors
        class(euclidean_distance) :: distance
!! A `euclidean_distance` object
        real(kind=wp),dimension(:,:),intent(inout) :: vector1
!! A real vector
        real(kind=wp),dimension(:,:),intent(inout) :: vector2
!! A real vector
        real(kind=wp) :: d
!! A real variable with the distance
        d=sum((vector1-vector2)**2);
!
    end function calculate_euclidean_distance